'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 12 December 2011 at 4:50:45 pm'!TestCase subclass: #CelulaTeste	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Batalha_Naval_Teste'!!CelulaTeste methodsFor: 'as yet unclassified' stamp: 'KeA 12/12/2011 16:42'!testeCelulaComAgua		| celula |		celula := Celula novaCelula.		self assert: #Agua equals: celula conteudo.	! !!CelulaTeste methodsFor: 'as yet unclassified' stamp: 'KeA 12/12/2011 15:42'!testeNaoPodeInstanciarCelulaSemConteudo		self should: [Celula new] raise: Error.  	! !!CelulaTeste methodsFor: 'as yet unclassified' stamp: 'KeA 12/12/2011 16:50'!testeTrocarConteudoCelula		| celula |		celula := Celula novaCelula.		celula insereEmbarcacao.		self assert: #Embarcacao equals: celula conteudo.			celula insereAgua.		self assert: #Agua equals: celula conteudo.			! !